home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGIALS
/
PTUTOR2B.LZH
/
GARDEN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
988b
|
26 lines
(* Chapter 13 - Program 3 *)
program Garden;
(*****************************************************************)
(* *)
(* This program calculates how much area there is to plow in a *)
(* circular garden, and how long the wall will be around it. *)
(* *)
(*****************************************************************)
uses Areas, Perims;
var Radius, Area, Circumference : real;
begin
Radius := 12.0;
Area := Area_Of_Circle(Radius);
Perimeter_Of_Circle(Radius,Circumference);
(* Calculations complete, output results *)
Writeln('The radius of the garden is ',Radius:6:1,' feet.');
Writeln('The area to plow is ',Area:6:1,' square feet.');
Writeln('A wall around the garden will be ',Circumference:6:1,
' feet long.');
Writeln;
end.